home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / dwareinf / infotick.exe / InfoTick.Frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-16  |  7.7 KB  |  234 lines
  1. VERSION 5.00
  2. Object = "{7E8017C1-09A8-11D0-98CE-00AA006DB209}#1.0#0"; "Infotick.ocx"
  3. Begin VB.Form Form1 
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   4275
  7.    ClientLeft      =   60
  8.    ClientTop       =   930
  9.    ClientWidth     =   6945
  10.    LinkTopic       =   "Form1"
  11.    PaletteMode     =   1  'UseZOrder
  12.    ScaleHeight     =   4275
  13.    ScaleWidth      =   6945
  14.    StartUpPosition =   2  'CenterScreen
  15.    Begin INFOTICKLib.InfoTick InfoTick4 
  16.       Height          =   615
  17.       Left            =   480
  18.       TabIndex        =   3
  19.       Top             =   3240
  20.       Width           =   6135
  21.       _Version        =   65536
  22.       _ExtentX        =   10821
  23.       _ExtentY        =   1085
  24.       _StockProps     =   125
  25.       Text            =   "Higher Please!"
  26.       ForeColor       =   255
  27.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  28.          Name            =   "MS Sans Serif"
  29.          Size            =   8.25
  30.          Charset         =   0
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   8.25
  39.          Charset         =   0
  40.          Weight          =   400
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Caption         =   "Higher Please!"
  46.       ForeColor       =   255
  47.       BackColor       =   12632256
  48.       Scrolling       =   0   'False
  49.       TimerInterval   =   100
  50.    End
  51.    Begin INFOTICKLib.InfoTick InfoTick3 
  52.       Height          =   495
  53.       Left            =   840
  54.       TabIndex        =   2
  55.       Top             =   360
  56.       Width           =   4455
  57.       _Version        =   65536
  58.       _ExtentX        =   7858
  59.       _ExtentY        =   873
  60.       _StockProps     =   125
  61.       Text            =   "IBM | 5 1/4 | GSU | 2 1/6 | IIT | 1 7/8 | PPW | 1 1/4 | LPL | 1 1/8 | GLF | 1 1/2 | HPL | 2 1/8"
  62.       ForeColor       =   65280
  63.       BackColor       =   32768
  64.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  65.          Name            =   "MS Sans Serif"
  66.          Size            =   9.75
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  74.          Name            =   "MS Sans Serif"
  75.          Size            =   9.75
  76.          Charset         =   0
  77.          Weight          =   400
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Caption         =   "IBM | 5 1/4 | GSU | 2 1/6 | IIT | 1 7/8 | PPW | 1 1/4 | LPL | 1 1/8 | GLF | 1 1/2 | HPL | 2 1/8"
  83.       OffsetText      =   -1  'True
  84.    End
  85.    Begin INFOTICKLib.InfoTick InfoTick2 
  86.       Height          =   495
  87.       Left            =   720
  88.       TabIndex        =   1
  89.       Top             =   2280
  90.       Width           =   5655
  91.       _Version        =   65536
  92.       _ExtentX        =   9975
  93.       _ExtentY        =   873
  94.       _StockProps     =   125
  95.       Text            =   "Default Caption"
  96.       ForeColor       =   65535
  97.       BackColor       =   16711680
  98.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  99.          Name            =   "MS Sans Serif"
  100.          Size            =   18
  101.          Charset         =   0
  102.          Weight          =   400
  103.          Underline       =   0   'False
  104.          Italic          =   0   'False
  105.          Strikethrough   =   0   'False
  106.       EndProperty
  107.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   18
  110.          Charset         =   0
  111.          Weight          =   400
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       ForeColor       =   65535
  117.       BackColor       =   16711680
  118.       Scrolling       =   0   'False
  119.       TimerInterval   =   1000
  120.    End
  121.    Begin INFOTICKLib.InfoTick InfoTick1 
  122.       Height          =   495
  123.       Left            =   720
  124.       TabIndex        =   0
  125.       Top             =   1080
  126.       Width           =   5415
  127.       _Version        =   65536
  128.       _ExtentX        =   9551
  129.       _ExtentY        =   873
  130.       _StockProps     =   125
  131.       Text            =   "Scrolling fast...."
  132.       ForeColor       =   255
  133.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.          Name            =   "MS Sans Serif"
  135.          Size            =   12
  136.          Charset         =   0
  137.          Weight          =   400
  138.          Underline       =   0   'False
  139.          Italic          =   0   'False
  140.          Strikethrough   =   0   'False
  141.       EndProperty
  142.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  143.          Name            =   "MS Sans Serif"
  144.          Size            =   12
  145.          Charset         =   0
  146.          Weight          =   400
  147.          Underline       =   0   'False
  148.          Italic          =   0   'False
  149.          Strikethrough   =   0   'False
  150.       EndProperty
  151.       Caption         =   "Scrolling fast...."
  152.       ForeColor       =   255
  153.       BackColor       =   12632256
  154.       ScrollDelay     =   0
  155.    End
  156. Attribute VB_Name = "Form1"
  157. Attribute VB_GlobalNameSpace = False
  158. Attribute VB_Creatable = False
  159. Attribute VB_PredeclaredId = True
  160. Attribute VB_Exposed = False
  161. Dim nCounter
  162. Dim nWait
  163. Dim nCount
  164. Dim flag
  165. Private Sub Form_Load()
  166. nCounter = 0
  167. nWait = 0
  168. nCount = 0
  169. flag = 0
  170. End Sub
  171. Private Sub Form_Resize()
  172.     InfoTick3.Move 0, 0, ScaleWidth, InfoTick3.Height
  173. End Sub
  174. Private Sub InfoTick2_Timer()
  175. If nCounter = 0 Then
  176.     InfoTick2.Text = "First Line of Text"
  177. End If
  178. If nCounter = 1 Then
  179.     InfoTick2.Text = "Second Line of Text"
  180. End If
  181. If nCounter = 2 Then
  182.     InfoTick2.Text = "One more Line of Text"
  183.     nCounter = 0
  184. End If
  185. nCounter = nCounter + 1
  186. End Sub
  187. Private Sub InfoTick3_Click()
  188.     MsgBox "click was fired"
  189. End Sub
  190. Private Sub InfoTick3_DblClick()
  191.     'MsgBox "Double click was fired"
  192. End Sub
  193. Private Sub InfoTick3_KeyDown(KeyCode As Integer, Shift As Integer)
  194.     'MsgBox "keydown was fired"
  195. End Sub
  196. Private Sub InfoTick3_KeyPress(KeyAscii As Integer)
  197. '    MsgBox "Keypress was fired"
  198. End Sub
  199. Private Sub InfoTick3_KeyUp(KeyCode As Integer, Shift As Integer)
  200.  '   MsgBox "keyup was fired"
  201. End Sub
  202. Private Sub InfoTick3_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  203.     'MsgBox "mousedown was fired"
  204. End Sub
  205. Private Sub InfoTick3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
  206.     'MsgBox "mousemove was fired"
  207. End Sub
  208. Private Sub InfoTick3_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
  209.   '  MsgBox "mouseup was fired"
  210. End Sub
  211. Private Sub InfoTick4_Timer()
  212. If nWait < 5 And nCount > 30 Then
  213.     nWait = nWait + 1
  214.     If nWait = 5 Then
  215.         nCount = 30
  216.         nWait = 0
  217.     End If
  218. ElseIf flag = 0 Then
  219.     nCount = nCount + 1
  220.     InfoTick4.Font.Size = nCount
  221.     If nCount > 30 Then
  222.        flag = 1
  223.        InfoTick4.Text = "Lower Please!"
  224.     End If
  225. ElseIf flag = 1 Then
  226.     nCount = nCount - 1
  227.     InfoTick4.Font.Size = nCount
  228.     If nCount < 2 Then
  229.         flag = 0
  230.         InfoTick4.Text = "Higher Please!"
  231.     End If
  232. End If
  233. End Sub
  234.